﻿Public Class player

    Private CN As connection

    Public Sub New()
        CN = New connection(ipCode, portNumber)
    End Sub

    Public Sub MainLoop()

        While True

            Dim str As String = CN.receiveData()

            If str.Length > 1 Then
                Call parser.doParse(str)
            Else
                Continue While
            End If

            CN.sendData(decide)

        End While

    End Sub

    Private Function decide() As String

        Return actions.forward
        'Return ""

    End Function

End Class